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Introducción 


¿Quién no conoce el joystick, esa 
emocionante palanca con un 
pulsador, omnipresente en los 
videojuegos caseros y en los de los 
bares? ¿Cuántas batallas se han 
ganado o perdido empuñándolo 
contra terribles enemigos? Más allá 
del juego, el joystick, como sus 
hermanos los paddles, es un periférico 
de entrada, con su lógica digital y 
sus principios de funcionamiento que 
siempre conviene conocer. Esto en lo 
tocante al hardware. 

En la programación añadimos otra 
pieza valiosa a nuestro mosaico de 
conocimientos: las funciones de 
cadena. 

Hasta ahora, en el uso de cadenas, 
nos hemos limitado a su asignación, 
comparación e impresión. En esta 
lección veremos como se pueden 
manipular datos alfanuméricos 
gracias a LEN, VAL, STR$, TO, 
IN/OUT. 


Paddle y Joystick 


Ya hemos visto en las 
anteriores lecciones 
que el principal 
dispositivo de un 
ordenador, para entrada 
de datos e 
informaciones, está 
constituido por el 
teclado. Y tanto es así 
que prácticamente no 
existen ordenadores — 
exceptuando aquéllos 
construidos para 
aplicaciones muy 
especiales— que no 
dispongan de él y que 
recurran a otros medios 
para la entrada de 
datos. 

Sin embargo, principal 
no significa único: hay 
un montón de 
periféricos y accesorios 
disponibles, que en 
cinscunstancias 
particulares, pueden ser 
mucho más útiles y 
apropiados que el 
teclado, al igual que le 
ocurre al hombre 
cuando desea algo más 


cómodo y rápido para 
escribir que la sencilla 
pero siempre 
indispensable pluma. 
Hoy hablaremos 
precisamente de estos 
dos dispositivos: los 
joysticks y los paddles. 
Es muy probable que 
no te resulte 
completamente 
desconocido, dado que 
sus nombres se 
emplean con frecuencia 
entre los apasionados 
jugadores de los 
inevitables videojuegos, 
ya que se usan como 
principales armas de 
ataque y defensa contra 
las pléyades de 
invasores espaciales. 

Y también, cualquiera 
que haya entrado en un 
bar no puede no 
identificar un joystick, 
reconociendo 
inmediatamente bajo tal 
nombre la apasionante 
palanquita necesaria 
para escapar de los 


peligros del 
«bombardeo» enemigo. 
Será más fácil en 
cambio, que no te sean 
demasiado conocidos 
sus principios de 
construcción y 
funcionamiento: el 
objetivo de esta lección 
será el de explicarte 
sus secretos y sus 
diferencias. 

Veamos en primer lugar 
cuáles han sido los 
motivos que han 
determinado su 
nacimiento y, 
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especialmente en los 
últimos tiempos, su 
difusión. 

Todo empezó hace 
pocos años, 
precisamente con los 
citados videojuegos: un 
videojuego no es más 
que un ordenador 
especial programado 
para ejecutar única y 
exclusivamente un 
determinado programa; 
es decir, un ordenador 
al que se acostumbra a 
llamar “dedicado”. Y su 
programa, 
precisamente, es el 
juego. 

No hizo falta mucho 
para darse cuenta de 
que era necesario 
superar las dificultades 
que presentaba el 
teclado: en primer lugar, 
la mayor parte de las 
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teclas hubiera resultado 
absolutamente inútil 
para el uso al que 
estaba destinado el 
ordenador, y además 
sería lógico suponer 
que a los usuarios les 
resultara más sencillo, y 
sobre todo mucho más 
divertido, tener la 
impresión de 
“gobernar” directamente 
el juego como ocurre 
en las astronaves de 
verdad, a través de una 
palanca especial de 
mando y un botón de 
disparo. Asi, a través de 
estos accesorios se 
hizo posible impartir las 
órdenes a la máquina 
de una manera rápida y 
fácil, y sobre todo, sin 
que fuera necesario 
saber nada de 
programación. 


Cómo controlar 
un joystick 


Para una persona no es 
demasiado natural 
pulsar botones para 
ordenar movimientos: si 
tuviéramos que 
conducir un coche 
mediante teclas o 
pulsadores, no 
obtendríamos la 
percepción continua de 
movimiento que se 


consigue girando un 
volante. 

Fue así como nació la 
idea del joystick y, a 
continuación, la de los 
paddles (que como luego 
veremos, son una 
especie de joysticks 
más refinados). 
Actualmente, el uso de 
estos dispositivos ya no 
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es una prerrogativa 
exclusiva de los 
videojuegos: casi todos 
los ordenadores 
personales permiten su 
uso a través de algunas 


conexiones 
expresamente 
realizadas en el 
ordenador mismo. 

Por lo tanto, un joystick 
es —como los teclados— 
un dispositivo de 
entrada; su apariencia 
es la de una palanca 
que con su movimiento 
permite desplazar un 
objeto en pantalla. 


Veamos cómo lo 
consigue. 

En el interior del 
joystick existen cuatro 
interruptores que son 
archivados según la 
dirección tomada por la 
palanca: por lo tanto, en 
base a su estado es 
posible identificar nueve 
distintas posiciones de 
la palanca: 


$2 0-88 


todos abiertos 
SO cerrado 

S1_ cerrado 

S2 cerrado 

S3 cerrado 

SO, S1 cerrados 
S1, S2 cerrados 
S2, S3 cerrados 
S3, SO cerrados 


de 
| 
| 
| 
| 


norte-oeste 
sur-este 


norte-este 


IW 


A cada uno de estos ordenador: bit 1 para como pulsador de 
cuatro interruptores se interruptor encendido, o disparo o como señal 
le asocia un bit en una bit O para interruptor de que la posición 
localización de memoria apagado. Un quinto deseada ha sido 

en el interior del interruptor funciona alcanzada. 


Y 


Y 
—. A A A % 3 


Entonces, a través del 
programa, será 
suficiente con leer en 
su localización de 
memoria el valor de 


cada uno de estos bits, 
para averiguar la 
posición de la palanca 
y saber en 
consecuencia cuál es la 
acción a realizar 
(desplazamiento del 
cursor, de la astronave 
o del objeto en 
pantalla). 


Informaciones 
analógicas y 
digitales: 
interface 


El joystick es un 
dispositivo digital: el 
dato contenido en la 
localización de memoria 
se corresponde 
exactamente con la 
combinación de 
interruptores debida al 
accionamiento de la 
palanca. El estado de 
cada bit depende del 
estado del interruptor 
respectivo, sin ninguna 
aproximación ni 
redondeo. 

Pero, a veces, resulta 
más cómodo poder 
contar con un 
dispositivo más sensible 
a pequeñas variaciones 
y desplazamientos, 
como ocurre con el 
volante de un automóvil. 
Por lo tanto, al joystick 
propiamente dicho se le 
ha unido el llamado 
joystick con 


AAA 


potenciómetro (paddle). 
A los efectos de su 
funcionamiento, un 
paddle es muy 
semejante a un joystick: 
pero en lugar de una 
palanca, en el paddle 
aparece una manivela 
cuya regulación es 
mucho más ajustada y 
precisa. Y además el 
efecto se obtiene de 
una manera 
completamente distinta 
a como ocurría en el 
joystick: el 
desplazamiento de la 
manivela ya no provoca 
el encendido de 
interruptores y 
pulsadores, sino 
variaciones de tensión 
entre los dos extremos 
de dos resistencias 
variables (o 

potenció metros) 
situadas en el interior 


del paddle. El resultado 
final es un dato que 
varía constantemente, O 
como se acostumbra a 
decir, está constituido 
por una información 
analógica. La adecuada 
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conversión de esta 
información de 
analógica a digital 
devuelve bajo la forma 
de un número de 8 bits 
la acción especificada 
por el desplazamiento 
de la manivela, 
memorizándola en una 
determinada 
localización de la 
memoria. Como es 


natural, para efectuar 
esta conversión, se 
emplea el interface 
adecuado, situado entre 
la unidad central y el 
paddle, cuyo objeto es 
transformar la señal 
continua proporcionada 
por el paddle, en una 
información binaria. 
Mediante la operación 
de leer la localización 


de memoria será 

posible, como en el 

joystick, recuperar el 
1 movimiento 

deseado. 

Naturalmente, también 

un paddle tiene su 


DNA 


límite de sensibilidad, 
debido a la operación 
de conversión; pero de 
cualquier forma éste 
queda muy por encima 
del límite del joystick, 
permitiendo un total de 
256 posibles 
combinaciones. 

Pero esto no quiere 
decir que un paddle 
sea forzosamente mejor 


que un joystick; todo 
depende del uso y de la 
sensibilidad necesaria 
para cada aplicación 
determinada. Lo que es 
sin duda más sencillo 
es conectar el joystick 
al ordenador, puesto 
que no se requiere 
ningún dispositivo de 
conversión, lo que no 
ocurre con el paddle. 


Los operadores 
de cadena 


Hasta este momento 
nuestro uso de las 
cadenas se ha limitado 
a la asignación, a la 
comparación, y a la 
impresión de este tipo 
de expresiones. En 
cambio, en muchos 
programas para 
ordenadores aparecen 
extensas 
manipulaciones y 
tratamientos de datos 


alfanuméricos. En esta 
importante lección 
intentaremos aprender 
las instrucciones y 
comandos que nos 
permitan efectuar este 
tipo de operaciones. 


LEN 


La función LEN 
(abreviatura inglesa de 
LENght, longitud) es 
muy fácil de entender: 
permite encontrar el 


número de caracteres 


que componen una 
cadena. 

Por ejemplo, si 
deseamos determinar el 
número de caracteres 
que componen la 
cadena “JUAN” será 
suficiente con indicar: 


PRINT LEN “JUAN” 


y en la pantalla 
aparecerá 4. 

La cadena “JUAN” de la 
que deseábamos contar 
los caracteres es el 
argumento de LEN y, 
por lo tanto, se coloca 
entre paréntesis 
inmediatamente 
después de la 

palabra LEN. 

LEN devuelve un 


Ejemplos 


resultado numérico a 
partir de un argumento 
que ha de ser 
forzosamente de tipo 
cadena, sea variable o 
constante. Obseva que 
las comillas no se 
toman en consideración 
(lo que es lógico) como 
partes constituyentes de 
la cadena. 

Es una instrucción muy 
potente y de uso muy 
frecuente. Los casos en 
los cuales puede 
interesar conocer la 
longitud de una cadena 
son numerosisimos; 
citaremos como 
ejemplos los 
encolumnados, los 
paginados y las 
comparaciones entre 
cadenas. 


Imprime el número 16. 


A la variable se le 
asignará el valor O (la 
cadena nula no 
contiene ningún 
carácter). 


“1 


Estas dos parejas de 
LET A$ = “ANA” instrucciones tienen el 
PRINT LEN (AS + “MARIA”) mismo resultado, 8. En 
el primer caso se 
efectúa en primer lugar 
LET AS = “ANA” la concatenación de las 
PRINT LEN (AS) + LEN (“MARIA”) dos cadenas y a 
continuación el cálculo 
de la longitud, mientras 
que en el segundo caso 
se calculan por separado 
las dos longitudes para 
luego sumarlas. 


Sintaxis de la función 


LEN (cadena) 


La función VAL ningún valor numérico; 
VAL (abreviatura de VALue, cuando el intérprete 
¿ TAI Valor) convierte las BASIC encuentra una 


Existen algunos casos cadenas en números. instrucción como: 


Así: 
en los que resulta muy le 7 
cómodo poder convertir LET A =VAL “3149” PRINT VAL “TAPON 
una cadena de números E o 
(como “3149”) en un comprueba si existe 


valor numérico, para le asigna a la variable una variable con ese 

poderlo usar dentro de "UMérica A el nombre. 

expresiones numéricas valor 3149. Si no la encuentra envía 
: Pero de cualquier el mensaje: 


manera no debemos 
malinterpretar esta VARIABLE NOT FOUND 


función: no es capaz de pero si la variable 


hacer proezas. Una hubiera sido asignada 
cadena como “TAPON” anteriormente, hubiera 
nunca podrá tomar impreso su valor. 
Ejemplos 


1 Asigna a la variable X el 
LET.X = VAL “8” valor numérico 8. 
j Provocará el mensaje 
PRINT VAL “54C3” de error NONSENSE IN 
BASIC, puesto que la 


cadena contiene un 
carácter no numérico. 


Imprime la suma (es 
LET P$ = “103” decir, la concatenación) 
Bares e de las cadenas P$ y Q$. 
PRINT P$ + Q$ Por lo tanto, el resultado 
será la cadena “1032”. 


Imprime la suma de los 
PRINT VAL P$ + VAL Q$ valores numéricos 103 
y 2, es decir, 105. 


Sintaxis de la función 


VAL (cadena) 
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STR$ (abreviatura de de caracteres. 
STR$ 


STRing, cadena) es la Cuando deseemos 
función reciproga de transformar un número 
VAL. Permite transformar (como el 8) en una 
una cantidad numérica cadena, de forma que 
en una cadena sea posible combinarlo 


con otras cadenas (por 
ejemplo “mil”) STR$ 
será la función que 
necesitemos. 

La instrucción 


PRINT STR$ 8 + “” + “MIL” 


producirá como 
resultado la impresión 
l de la cadena “8 MIL”. Ñ 


5 


Ejemplos 


Asigna a A$ el valor 
alfanumérico “50”. 


Resultado: 19. 


Es una instrucción 
inútil, aunque 
perfectamente legal. 

El valor numérico 50 se 
convierte primero en 
cadena (con STR$) y 
después se transforma 
en número. 

Aparecerá entonces en 
pantalla 50, 

entendido como 
número y no como 
cadena. 


Sintaxis de la función 


STR$ (expresión) 


TO 


La operación de 
concatenación permite 
añadirle caracteres a 
una cadena (teniendo 
en cuenta que nunca 
debe superarse el límite 
máximo de 255 
caracteres) efectuando 
una especie de suma 
de cadenas. 

En algunos casos, en 
lugar de añadir, podría 
ser necesario tener que 
extraer caracteres de 
una cadena: para esto 
existen en el lenguaje 
BASIC de tu Spectrum 
una función que te 
permite realizar esta 
operación de 
separación: TO. 

El resultado de TO es 
una subcadena (es 
decir, un grupo de 
caracteres 
pertenecientes a la 
cadena original) 
extraída a partir de una 
determinada posición 
que se especifica y con 
una longitud de tantos 
caracteres como 
existan, hasta la 
posición en que se 
desee que termine la 
subcadena. 

Veamos a continuación 
un ejemplo 
esclarecedor: 


PRINT “JUAN CARLOS” (1 TO 4) 
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Imprime 4 caracteres de 
la cadena “JUAN 
CARLOS”, partiendo 
desde la primera 
posición y terminando 
en la cuarta. El 
resultado será la 
visualización de JUAN. 
El primer número del 
interior del paréntesis 
especifica la posición 
del carácter desde el 
que empezará la 


extracción de la 
subcadena. El segundo 
número identifica la 
posición del carácter en 
el que debe finalizar la 
extracción. 

Si ahora deseáramos 
ejecutar la misma 
operación, pero desde 
la parte opuesta de la 
cadena (es decir, si 
deseáramos separar los 
últimos cinco 
caracteres) sería, 
suficiente indicar: 


y el resultado sería la 
aparición en pantalla de 
CARLOS. 

Por lo general, el 
troceado (“slicing”) de 
una cadena, es decir, la 
subdivisión de una 
cadena en una o más 
subcadenas, se efectúa 
de la siguiente forma: 
cadena (posición del 
primer carácter TO 
posición del último 
carácter); en la que los 


| números de las debido al gran número o al final de una 


posiciones del primer y de veces en las cuales cadena, la casa 

] del último carácter la operación de Sinclair ha hecho 
especifican donde debe troceado afecta posible usar formas 
empezar y terminar la únicamente a un abreviadas para 
subdivisión. determinado número de simplificar la escritura 
De cualquier forma caracteres, al principio de esta instrucción. Así: 


LET A$ = “RADIOAFICIONADO” (1 TO 5) 


es equivalente a 


LET A$ = “RADIOAFICIONADO” (TO 5) 


En ambos casos la 
subdivisión empezará 
en el primer carácter 
para terminar en el 
quinto, asignándole así 
a la variable A$ la 


subcadena “RADIO”. 
Para asignarle en 
cambio a A$ la 
subcadena 
“AFICIONADO” 
hubieramos podido 
escribir: 


Nuesto Spectrum 
hubiera entendido lo 
mismo en ambos casos: 
extraer los últimos 10 
caracteres de la cadena 
inicial. 

Si ahora deseáramos 
obtener como 
subcadena un solo 
carácter (por ejemplo, la 
R de MADRID), 
tendríamos que escribir: 


y 


¡  PRINT “MADRID” (4 TO 4) | 
Ll 


o también: 


PRINT “MADRID” (4) 


Y el cuarto carácter de 
MADRID, la R, se 
visualizará en pantalla. 
De cualquier forma, 
siempre tienes que 
evaluar muy 


cuidadosamente los 
números que marcan la 
posición de los 
caracteres del principio 
y el final de la 
extracción: valores 
equivocados o no 
deseados pueden llevar 
a subdivisiones 
absurdas o, peor 
todavía, provocar 
mensajes de error. 

Por ejemplo: 


LET F$ = “EDICIONES INGELEK” (9 TO 30) 


es una instrucción 
equivocada, puesto que 
la cadena contiene un 
total de 17 caracteres 
incluyendo el espacio. 
También 


LET F$ = “EDICIONES INGELEK” (-1 TO 6) 


está equivocado. 
Ninguna palabra puede 
contener caracteres en 
la posición —1. 

Aunque pueda 
parecerte muy sencillo 
evitarlos, este tipo de 
errores resultan en 
cambio muy frecuentes; 
muchas veces, en el 
interior de los 
paréntesis no aparece 
un auténtico número, 
sino una expresión 
numérica, que 
—pasando de una a otra 
ejecución— puede tomar 
distintos valores. De no 
haber tomado en 


consideración todos los 
casos posibies, puede 
ocurrirnos lo que ya 
hemos comentado, 
provocando la aparición 
del fatídico mensaje de 
error: 


INTEGER OUT OF RANGE 


El uso más típico de 
este comando lo 
tenemos en aquellos 
programas que piden, 
como entrada una fecha 
escrita en la 

forma DD/MM/AA 
(como 27/10/60). Con 
TO resulta muy fácil 
descomponer la fecha 
en sus elementos 
DD/MM/AA. 


Veamos como se puede Al final de este 


hacer esto: programa, D$, M$ y A$ 
| contendrán 
10 INPUT “ESCRIBE LA FECHA (DD/MM/AA)”; F$ respectivamente el día, 
20 D$ =F$ (1 TO 2) mes y año de la fecha 
30 M$ =F$ (4 TO 5) asignada inicialmente a 
40 A$ =F%$ (7 TO 8) FS. 


50 PRINT DS; “ ”; MS; *”; ¡AS 


Ejemplos 


LET A$ = “enerofebreromarzo” Imprime “enero” 
PRINT AS (1 TO 5) 


PRINT AS (TO 5 


LET A$ = “enerofebreromarzo” Imprime “marzo” 
PRINT AS (13 TO 17) 


PRINT AS (13 TO) 


LET A$ = “enerofebreromarzo Imprime “febrero” 
PRINT A$ (6 TO 12) 


El número de 
PRINT “CINTA (TO LEN (“CINTA”) —1) caracteres a extraer a 
partir de la izquierda 


será 4 puesto que LEN 
(“CINTA”) es 5, y al 
restarle 1, da 4 como 
resultado. 


Puesto que 5 es igual a 
PRINT “NOCHE” (1 TO 5) la longitud total de la 
cadena, se imprime la 


cadena completa 
“NOCHE”. 


¡Error! No es posible 
LET A$ =AS$ (-1) extraer nada partiendo 
del carácter —1 de una 


cadena. 


-- 


o 
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El breve programa 
siguiente (encontrarás IN/OUT 


otros en la parte de la A a 

lección dedicada a la Ya has estudiado que el 
| programación) te microprocesador que 

muestra una sencilla contiene tu Spectrum es 
| aplicación de los capaz de conectarse a 

conceptos explicados través de códigos 

hasta el momento. especiales y 


combinaciones con 
cualquier parte de la 
memoria: es decir, 
puede acceder (leyendo 


INPUT “ESCRIBE UNA PALABRA 
CUALQUIERA”; P$ 

FOR | = 1 TO LEN (P$) 

PRINT PS (1 TO |); “”; PS (LEN(PS) —1+ 1 TO 
LEN (P$) 

NEXT | 

STOP 


Sintaxis de la función 


Cadena (número 1 TO número 2) 


AS 


y escribiendo) a todas 
las localizaciones que 
componen la memoria. 
Es por esto, que el 
BASIC te permite 


—aprovechándose 
precisamente de estas 
capacidades— 
“curiosear” en las 
distintas localizaciones 
a las dos instrucciones 
PEEK y POKE. 

De la misma manera, es 
posible considerar a las 
diversas posiciones de 
memoria no ya como 
simples almacenes e 
informaciones, sino 
como auténticas 
puertas de 
comunicación entre el 


> 


A RIA RTS NENA: 


ordenador y el mundo 
exterior (que según los 
casos, puede ser el 
teclado, la impresora, 
un joystick o la 
grabadora). 

Por lo tanto, el 
Spectrum proporciona 
dos instrucciones 
capaces de acceder a 
cada dispositivo, de 
entrada/salida, 
exactamente igual que 
permite —a través de 
PEEK y POKE-— referirse 
a localizaciones 


específicas de memoria. 
IN es la función 
correspondiente a 
PEEK: 


IN dirección 


y tiene un único 
argumento (la 
dirección del port), 


proporcionando el valor 
numérico conectado a 
dicho port. 

OUT, en cambio, es la 
instrucción 
correspondiente a 
POKE: 


OUT dirección, valor 


escribe el valor 
(numérico) en el port 
especificado por la 
dirección. 

La principal diferencia 
entre PEEK/POKE e 
IN/OUT es que, mientras 
que todas las 


localizaciones de la 
memoria se comportan 
más o menos de la 
misma manera (algunas 
permiten únicamente la 
lectura, otras pueden 
ser leídas o escritas), el 
dispositivo que se 
maneja mediante la 
“dirección” puede 
actuar, dependiendo de 
su naturaleza, de muy 
variadas maneras. 
Además, la instrucción 
OUT no implica ninguna 
memorización de datos. 
Por lo tanto, es 
necesario conocer muy 
bien, además del port 


A ns 


conectado con el 
dispositivo, también el 
funcionamiento exacto 
de dicho dispositivo. 
Por ejemplo, existen 
algunas direcciones de 
entrada/salida que 
corresponden a ports 
de entrada/salida y que 
únicamente pueden 
recibir datos, como el 
altavoz: en este caso 
solamente tiene sentido 


20 OUT 254,A 
30 GOTO 10 


Otras direcciones 
corresponden a ports 
que sólo pueden 
proporcionar datos (por 
ejemplo, el teclado): en 
este segundo caso, 
solamente tiene sentido 
el uso de IN. Otras 
direcciones 

pueden recibir y 
proporcionar datos (por 
ejemplo, el port de 
conexión de la 
grabadora): aquí 
podremos utilizar tanto 
IN como OUT. 

Los dispositivos de 
entrada/salida que has 
recibido con tu 
Spectrum son: el 
altavoz, el interface para 
la grabadora de casetes 
y el teclado. 

Sin entrar demasiado 
en el tema, encontrarás 
a continuación dos 
brevísimos ejemplos. El 
primero, en base a la 
respuesta, modificará el 
color del borde de la 
pantalla: 


10 INPUT “ESCRIBE UN NUMERO ENTRE 0 Y 7”; A 


El segundo, hará emitir 
un sonido por el 
altavoz: 


10 OUT 254,16 


20 OUT 254,0 
30 GOTO 10 


Operaciones Los programas de hoy ejemplo: imprimir una 
b d te enseñarán algunas cadena, introducida 

sobre cadenas posibles aplicaciones por el teclado, 

de las funciones para el únicamente si el primer 

tratamiento de cadenas. carácter es distinto 

Veamos el primer de “A” o “B”. 


PRINT “TECLEA LA CADENA” 

INPUT N$ 

REM A$ = PRIMERA LETRA DE LA CADENA 

LET AS =NS (1) 

REM COMPRUEBA SI EMPIEZA POR A O POR B 

IF (AS = “A”) OR (A$ = “B”) THEN GOTO 100 

REM LA CADENA EMPIEZA CON UNA LETRA DISTINTA 


PRINT “LA CADENA ES: ”; N$ 

GOTO 110 

PRINT “NO SE PUEDE IMPRIMIR LA CADENA PORQUE EMPIEZA 
POR:”; AS 

STOP 


Como habrás visto, no 
existen dificultades 
especiales; lo único 

digno de comentario es | 
la línea 60: es necesario 
comprobar que el 
primer carácter sea | 
distinto de “A” o “B”. 


Segundo ejemplo: 
escribir una palabra el método es muy 


—introducida como 
constumbre a travé 
teclado)— en sentid 
inverso, es decir, 


También en este caso, 


de sencillo: se toma un 

s del carácter a la vez, de la 

O palabra o frase a 
escribir, partiendo 


opuesto al normal (de desde la izquierda y 
derecha a izquierda). repitiendo la operación 


tantas veces como 
caracteres constituyan 


PRINT “TECLEA LA CADENA la propia palabra. Al 
INPUT AS final, en pantalla 
LET K = LEN (AS) encontraremos 


FOR | =K TO 1 STEP —1 
PRINT AS (1); 

NEXT | 

STOP 


visualizada la cadena 
original escrita al revés. 
Si aún tienes alguna 
duda, al añadir la linea 


35 FOR J=0 TO 500: NEXT J 


introducimos un ciclo 
de retardo, que te 
ofrecerá la posibilidad 
de observar mucho más 
detalladamente la 
formación, carácter por 
carácter, de la palabra 
completa. 

Otra posible solución 
hubiera podido ser: 


PRINT “ TECLEA LA CADENA” 
INPUT A$ 

LETBS=*” 

LET K = LEN (A$) 
FOR!|=1TOK 

LET AS =A$ (1 TO K—1I+ 1) 
LET C$ = AS (LEN (AS$)) 

LET B$ = B$ + C$ 

NEXT | 

PRINT B$ 

SsTOP 


En este ejemplo, los Como último ejemplo, 
distintos caracteres, en queremos resolver este 


lugar de ser enviados problema: averiguar si 
directamente a la una cadena está 
pantalla, se van contenida en otra 
añadiendo uno tras otro cadena (por ejemplo, la 
a la variable B$. palabra “carga” está 
Una vez completado el contenida en 

ciclo (líneas 30-70) B$ “descargadores”, 
contendrá la palabra mientras que “manzana” 
invertida lista para no tiene nada que ver 
imprimir. con “perro”). 


En primer lugar 
veremos esta posible 
solución: 


INPUT “TECLEA LA PRIMERA CADENA” * A$ 

INPUT “TECLEAR LA SEGUNDA CADENA” * B$ 

LET L = LEN (B$) 

LET DETECTOR =0 

LET K = LEN (AS) — L 

IF K < 0 THEN PRINT “¡DEMASIADO LARGA! REPITE”: GO TO 20 
FOR |=1 TO K+ 1 

LET C$ =A$ (ITO 1! +L- 1) 

IF B$ = C$ THEN LET DETECTOR = 1 

NEXT | 

IF DETECTOR = 0 THEN PRINT “LA SEGUNDA CADENA NO ESTA 
CONTENIDA EN LA PRIMERA.” 

IF DETECTOR = 1 THEN PRINT “LA SEGUNDA CADENA ESTA 
CONTENIDA EN LA PRIMERA.” 

STOP 


Haremos algunos 
comentarios. 

Líneas 10-20: se piden 
como entradas las dos 
cadenas, asignando sus 
valores a las variables 
AS y B$. 

Líneas 30-40: la 
variable numérica L 
toma el valor dado por 
el número de caracteres 


que componen la 
variable B$. 
DETECTOR, en cambio, 
es una variable que 
únicamente podrá tomar 
dos valores, 0 y 1; 
valdrá O si A$ no 
contiene a Bf, y 1 en el 
caso contrario. 

Líneas 50-60: si la 
longitud de B$ resulta 
superior a la de A$, 
está claro que la 
comparación no es 
posible; será necesario 
teclear de nuevo B$. 
Lineas 70-100: este es 
el corazón del 
programa. 

Empleando la función 
TO se van cotejando los 
caracteres de A$ con 
los de B$. En caso de 
que la búsqueda tenga 
éxito (es decir, que B$ 
esté contenido en A$), 
DETECTOR tomará el 
valor 1. 

Líneas 110-120: 
Constituyen la salida 
del programa, son los 
mensajes de respuesta 
al problema que nos 
habíamos planteado. 


PRINCIPIO 
LEE LA 
CADENA AS 
LEE LA 
CADENA B$ 


ESTABLECE L = 
LONGITUD DE 8$ 


ESTABLECE DETECTOR =P 


ESTABLECE K = 
(LONGITUD DE A$) — L 


B$ ES DEMASIADO 
LARGA. REPITE. 
CONTADOR = 


1 
NO 


TOMA L CARACTERES DE AS 

A PARTIR DE LA POSICION 
INDICADA POR EL CONTADOR 
Y LOS ASIGNA A C$ 


DETECTOR = 1 


INCREMENTA 
CONTADOR 


LA SEGUNDA CADENA 
NO ESTA CONTENIDA 
EN LA PRIMERA 


LA SEGUNDA CADENA 
ESTA CONTENIDA EN 
LA PRIMERA 


Capitales 
e intereses 


El próximo listado es un 
programa de tipo 
financiero: el cálculo 
del interés compuesto y 
la impresión de su 
correspondiente tabla, 
ordenado por años. 

El algoritmo empleado 
es muy sencillo, se trata 
fundamentalmente de: 
A) Pedir los datos 
necesarios, es decir: 

1. El capital (C) 

sobre el que efectuar 

el cálculo. 


2. El interés (1). 

3. El tiempo (T). 

B) Calcular el total 
(capital + interés) de 
cada año, teniendo en 
cuenta que se 
considera como capital 
para el año siguiente el 
montante del anterior. 
C) Imprimir la relación 
de los distintos años, 
poniendo cuidado en 
que los importes 
queden bien 
encolumnados. 


. 


PRINCIPIO 


CALC. |= 
1 +1/100 


INICIALIZ. 
CICLO 


CALC. C = 


INT (C + 1) 


FIN 


_20 LETI=1+1/100 


40 LETC=INT(C» ) 


60 NEXT A 


Debido a la exigencia 
comentada en el 
apartado C, lo más 
cómodo será emplear 
las funciones de cadena 
(STR$) y (LEN) en 
conjunción con (TAB). 
Puesto que en tus 
futuros programas te 
encontrarás muchas 
veces con la necesidad 
de un encolumnado 
riguroso de los datos, 
será conveniente que te 
familiarices desde ahora 
con este tipo de 
instrucciones. 


Comentarios 
al listado 


10 INPUT de los valores 
de CAPITAL, INTERES y 
TIEMPO (en número de 
años). 

20 Transformación de 
la tasa de interés, de 
porcentaje a decimal. 
30 Establecimiento del 
ciclo en función de los 
años. 

40 Cálculo del 
montante anual. 

50 Impresión de la 


tabla con número del 
año y valor del 
montante. 

Observa en especial la 
instrucción TAB (31 — 
LEN STR$ C) que tiene 
la tarea de situar 
correctamente el dato a 
imprimir. 

60 Cierre del ciclo. 


A 0) 


Anota 'en los espacios en blanco el resultado que preveas para cada ejercicio y 
después compruébalo con la solución de tu ordenador. Aunque hayas 
cometido un solo error deberás repasar la lección. 


EL o ii 
20 LET B$ = “67” 
30 LET C$ = “890” 
40 PRINT LEN B$ 


50 PRINT LEN (AS + B$ + C$) 
60 PRINT LEN C$ — LEN B$ 


Para remarcar 


10 LET T$ = “TITULO” 

20 FORC=1 TO LEN T$ 
30 PRINT T$ (C); “”; 

40 NEXT C 


Antes de poner en 
marcha el programa 
escribe su salida. 


Adivina donde se imprimirán las cadenas 


10 CLS 

20 INPUT “CADENA =”; S$ 

30 FOR|=1 TO 10: PRINT : NEXT 1 

40 PRINT TAB (31 — LEN S$)/2; S$ 

50 PRINT AT 18,0; “¿OTRA VEZ?” 

60 LET A$ = INKEY$: IF AS =“ ” THEN GOTO 60 
70 IF AS =“s” THEN RUN 

80 STOP 


¿Dónde, con respecto 
a las columnas? 
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La nueva impresora de SEIKOSHA SP-800, con un ordenador personal puede 
escribir 96 combinaciones de letra diferentes, desde 96 caracteres por segundo 
a 20 con muy alta calidad de letra, además es gráfica en alta densidad. 

Su precio es de 69.900 R con introductor automático hoja a hoja. 

Con un peguefio ordenador personal, un procesador de textos puede costar 
alrededor de cien mil pesetas. 

Infórnese y comprenderá por qué las máquinas de escribir tienen demasiados años 

Nuestra calidad es "SEIKO"; 

nuestros precios, únicos 

Si desea más información, 
consulte con nuestro distribuidor 
más cercano, llame O escriba a: 
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